;       Small C+ Z88 Support Library
;
;       Convert signed int to long

SECTION code_clib
SECTION code_l_sccz80

PUBLIC l_int2long_s

l_int2long_s:

    ; If MSB of h sets de to 255, if not sets de=0

    ld de,0
    ld a,h
    rlca
    ret NC

    dec de
    ret
